%data = ('John Paul' => 45, 'Lisa' => 30, 'Kumar' => 40);

@array = @data{'John Paul','Kumar'};

print "Array : @array\n";

print(keys %data,"\n");

@data_keys = keys %data;

print $data_keys[0],"\n";
print $data_keys[1],"\n";
print $data_keys[2],"\n";

print(values %data,"\n");

@data_values = values %data;

print $data_values[0],"\n";
print $data_values[1],"\n";
print $data_values[2],"\n";